FOR EACH hrud_det NO-LOCK , 
    EACH hru_mstr WHERE hru_nbr = hrud_nbr AND hrud_part BEGINS "P" AND hru_state BEGINS ""
    BREAK BY hrud_nbr:
    ACCUMULATE hrud_rctqty (TOTAL).
    DISP hrud_nbr hrud_part hrud_order hrud_qty hrud_rctqty ACCUM TOTAL hrud_rctqty
         hru_state hrud_loc hrud_addr hru_rmks hrud_conv  
         hrud_um hrud_serial hrud_rmks hrud_ref hrud_line  
        WITH STREAM-IO WIDTH 320.
END.
